object Extractform: TExtractform Left = 479 Top = 121 Width = 473 Height = 459 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Extract' Color = clBtnFace Constraints.MinHeight = 459 Constraints.MinWidth = 473 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow DesignSize = ( 465 425) PixelsPerInch = 96 TextHeight = 13 object Targetlabel: TLabel Left = 8 Top = 336 Width = 34 Height = 13 Caption = 'Target:' end object Folderlabel: TLabel Left = 8 Top = 120 Width = 32 Height = 13 Caption = 'Folder:' end object Drivelabel: TLabel Left = 8 Top = 72 Width = 28 Height = 13 Caption = 'Drive:' end object Topbevel: TBevel Left = 0 Top = 65 Width = 465 Height = 8 Align = alTop Shape = bsTopLine end object Bottombevel: TBevel Left = 8 Top = 384 Width = 449 Height = 9 Anchors = [akLeft, akRight, akBottom] Shape = bsTopLine end object Filesgroupbox: TGroupBox Left = 288 Top = 80 Width = 169 Height = 59 Anchors = [akTop, akRight] Caption = 'Files' TabOrder = 0 object Selectedfilesradiobutton: TRadioButton Left = 8 Top = 16 Width = 153 Height = 17 Caption = 'Extract selected files only' TabOrder = 0 end object Allfilesradiobutton: TRadioButton Left = 8 Top = 36 Width = 153 Height = 17 Caption = 'Extract all files' Checked = True TabOrder = 1 TabStop = True end end object Optionsgroupbox: TGroupBox Left = 288 Top = 146 Width = 169 Height = 83 HelpType = htKeyword Anchors = [akTop, akRight] Caption = 'Options' TabOrder = 1 object Overwritelabel: TLabel Left = 8 Top = 19 Width = 48 Height = 13 Caption = 'Overwrite:' end object Createfolderscheckbox: TCheckBox Left = 8 Top = 40 Width = 153 Height = 17 Caption = 'Extract files with full path' Checked = True State = cbChecked TabOrder = 0 end object Openfoldercheckbox: TCheckBox Left = 8 Top = 60 Width = 153 Height = 17 Caption = 'Open folder after extraction' TabOrder = 1 end object Overwritecombobox: TComboBox Left = 64 Top = 16 Width = 97 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 2 TabOrder = 2 Text = 'Ask' Items.Strings = ( 'Never' 'Always' 'Ask') end end object Extractbutton: TButton Left = 304 Top = 392 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Extract' Default = True ModalResult = 1 TabOrder = 2 OnClick = ExtractbuttonClick end object Cancelbutton: TButton Left = 384 Top = 392 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object Targetcombobox: TComboBox Left = 8 Top = 352 Width = 273 Height = 21 Anchors = [akLeft, akRight, akBottom] ItemHeight = 13 TabOrder = 4 end object Toppanel: TPanel Left = 0 Top = 0 Width = 465 Height = 65 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 5 DesignSize = ( 465 65) object Captionlabel: TLabel Left = 8 Top = 8 Width = 149 Height = 13 Caption = 'Extract Files From Archive' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Infolabel: TLabel Left = 16 Top = 24 Width = 384 Height = 26 Caption = 'Please select a folder to store your extracted files in eather b' + 'y using the folder tree or by specifying the folder in the targe' + 't field below.' WordWrap = True end object Image: TImage Left = 410 Top = 8 Width = 48 Height = 48 Anchors = [akTop, akRight] AutoSize = True Picture.Data = {} Transparent = True end end object Helpbutton: TButton Left = 8 Top = 392 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Help' TabOrder = 6 OnClick = HelpbuttonClick end object Shelltree: TPTShellTree Left = 8 Top = 136 Width = 273 Height = 193 Indent = 19 OnChange = ShelltreeChange TabOrder = 7 Anchors = [akLeft, akTop, akRight, akBottom] end object Shellcombobox: TPTShellCombo Left = 8 Top = 88 Width = 273 Height = 22 ShellTree = Shelltree TabOrder = 8 Anchors = [akLeft, akTop, akRight] end end